home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d13 / pc_c9105.arc / CLENUP.ARC / KILLFILE.BAS < prev    next >
BASIC Source File  |  1991-04-16  |  249b  |  12 lines
  1. 100 OPEN "\KILLFILE.DAT" FOR INPUT AS #1
  2. 110 COUNT = 0
  3. 120 WHILE NOT EOF(1)
  4. 130  INPUT #1, F$
  5. 140  PRINT "Deleting "; F$
  6. 150  KILL F$
  7. 160  COUNT = COUNT + 1
  8. 170 WEND
  9. 180 PRINT USING "#####"; COUNT;
  10. 190 PRINT " file(s) deleted"
  11. 200 SYSTEM
  12.